DDDDDDDDDDDD 
DDDDDDDDDDDD 
ee 


DDDDDDDDDDDD 
DDDDDDDDDDDD 
DDDDDDDDDDDD 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ABA AAS 
AAA AKA 
AAA AMA 
AAA AMA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA ABA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA BAA 
AAA AAR 
AAA AAA 


I 
] 
] 
1 
I 
] 
I 
I 
] 
I 
I 
I 
] 
u 
U 


) 
LY) 
) 
D 
0) 
D 
D 
D 
D 
D 
D 
D 
D 
D 
) 
DU 
DL 
DL 
DL 
DL 


*eFTLE®*1D*#QAST 


QQQQaQ AAAAAA SSSSSSSS_ TTTTTITTIT 
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, __ sSBTTL_ PROGRAM DESCRIPTION 
FACILITY | 
SYSTEM DUMP ANALYZER | 
ABSTRACT | 


ROUTINES TO OBTAIN MEMORY FROM ANOTHER PROCESS ON | 
THE RUNNING SYSTEM. | 


S 
vi 
@D 
oo 
am 
z2- 
“ 


: ENVIRONMENT | 
: NATIVE MODE, USER MODE 

> AUTHOR 
: TIM HALVORSEN, JULY 1978 

: MODIFIED BY 

: v03-003 SHOOT Michael S. Harvey 23-Feb-1983 
; m 

: l 

5 bit (set by SDA'’s SRESUME call). This But works because now 
3 the SUSPEND AST in the Exec is a normal kernel AST instead 
3 of a special kernel AST and so SDA doesn't have to work as 
2 hard as it used to in the case of a suspended process. 

: kernel AST queueing. 

: v03-002 TMHOOG2 Tim Halvorsen 02-Aug-1983 

: Fix code which allows analysis of suspended processes 

: which was broken when EPIDs were added. 


v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
Added S$PRDEF. 
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Use IPL$_SYNCH to close window between state test and special | 
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QAST = GET DATA FROM ANOTHER PROCESS 16=SEP=1984 01:43:47 VAX/VMS Macro Vv04-00 P 
v04-000 DECLARATIONS ity eee SDA. SRCJQAST.MAR; 1 — 3) 
7) »SBTTL DECLARATIONS 
rs ; SYMBOL DEF INTIONS | 
& | 
£6 SACBDEF ; AST CONTROL BLOCK DEFINITIONS 
4 SPRIDEF + PRIORITY DEFINITIONS 
6 £8 SIPLDEF : IPL DEFINITIONS 
7 SPCBDEF + PROCESS CONTROL BLOCK 
0 0 SPHDDEF + PROCESS HEADER 
0 1 SPRDEF t PROCESSOR REGISTERS 
0 ; SPSLDEF : PSL DEFINITIONS 
SSSDEF + STATUS DEFINITIONS 
000 4 SSTATEDEF + PROCESS STATE VALUES 
000 85 SMCHKDEF ; MACHINE CHECK PROTECTION MASK | 
00 6 SVADEF + VIRTUAL ADDRESS DEFINITIONS 
0 SPTEDEF + PAGE TABLE ENTRY DEFINITIONS 
00 88 SRPBDEF + RESTART PARAMETER BLOCK 
0000 ~=s 89 
0000 «(90 gx 
9000 31 ; DEFINE EXTENSIONS TO THE AST CONTROL BLOCK 
9009 $8 , SDEFINI PKT 
00000010 $008 95 PKT_ORIGPID = ACBSL_AST ; PID OF REQUESTOR 
00000014 9000 36 KT~ADDR = ACBSL-ASTPRM ; ADDRESS OF REQUESTED DATA 
0000001¢ 9000 98 : - ACBSL_KAST+4 
001C 100 $DEF = PKT_QAST ~BLKL ; ADDRESS OF SCHSQAST 
90 6 101 $DEF © PKT"DEANON BLKL t ADDRESS OF EXESDEANONPAGED 
024 198 $DEF § PKT“RETLOC BLKL : ADDRESS TO RETURN DATA 
00 8 103 $DEF § PKTLEN -BLKL : LENGTH OF DATA 
02C 104 $DEF | PKTTSTATUS BLKL + STATUS OF TRAN 
90 6 105 $DEF § PKTTSTATLOC BLKL + ADDRESS TO RETURN STATUS 
034 106 SDEF © PKT“WAKE -BLKL : ADDRESS OF SCH 
0038 107 ;$DEF PKT“PRTCT BLKL + ADDRESS OF EXESMCHK PRTCT 
038 108 $DEF = PKTZIMGCNT -BLKL : PHDSL_IMGCNT OF REQUESTOR 
905¢ 109 $DEF § PKT7FLAGS “BL : FLAGS BYTE 
003D 110 _VIELD PKT,0,<- 
9030 Wi <SUSPEND, .M>, = ; RE-SUSPEND PROCESS AFTER MEMORY FETCH 
003D 118 SDEF  PKT_SIZE : TOTAL SIZE OF FIXED PORTION 
0 D 114 SDEF § PKTDATABUF : START OF DATA TO BE MOVED 
D «115 : AST CODE FOLLOWS DATA 
950 116 SDEFEND PKT 
33 118 LDEFAULT DISPLACEMENT, LONG | 
0000000 0 .PSECT DATA,NOEXE,WRT | 
° 1 ; QAST_COUNT: | 
00000000 0 ; .LONG 0 : QAST REQUEST COUNTER 
0000 5 .PSECT QAST,EXE,NOWRT | 
00989680 1 ‘ SECONDS = 10*1000*1000 : 1 SECOND IN DELTA TIME 
| 
| 
| 
| 
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1 
133 TIMEOUT: 
130 «LONG 


"SrSEP=1984 03:33:40 ESDAYSRc‘OAST .MAR: 


-3*SECONDS,-1 


; 3 SECOND TIMEOUT COUNT 
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lg ANOTHER PROCESS 16-SEP-1984 01:43:47 \YAX/VMS Ma v04-00 P 
- GET MEMORY FROM ANOTHER PRO mitt 7 5:43:26 SDA. SRCJOAST. MAR; 3 — 3) 


| 
‘ .SBTTL GETPROCMEM = GET MEMORY FROM ANOTHER PROCESS | 
134 : | 
5: READ MEMORY FROM ANOTHER PROCESS ON THE RUNNING SYSTEM. | 
5 : INPUTS: 
1 § : 04 (AP) = LOCATION TO READ IN OTHER PROCESS CONTEXT | 
140 : CAP) = ADDRESS OF BUFFER IN LOCAL MEMORY TO RECIEVE TRANSFER | 
141: 12(AP) = LENGTH OF TRANSFER 
1g : 16(AP) = PID OF OTHER PROCESS | 
132 3 OUTPUTS 
146 : SS$_NORMAL - MEMORY TRANSFERRED OK 
147 : SSSA CCVIO - LE TO ACCESS MEMORY 
148 : SS$~NOPRIV - NOT ENOUGH PRIVILEGE (CMKRNL) 
133 3 SS$_NONEXPR - NON-EXISTANT PROCESS OR INVALID PID 
131 .ENTRY GETPROCMEM,0 
138 PUSHL #SS$_TIMEOUT : PRESET TO TIMED OUT STATUS 
154 PUSHL + ADDRESS OF LONGWORD TO GET STATUS 
155 MOVQ  12(AP),=(SP) + MOVE LENGTH AND PI 
156 MOVQ 4 (AP),-(SP) : MOVE SOURCE AND DESTINATION ADDRESSES 
157 PUSHL #5 + NUMBER OF ARGUMENTS 
158 PUSHL SP + ADDRESS OF ARGUME 
159 PUSHAB QAST : ADDRESS OF KERNEL MODE ROUTINE 
160 CALLS #2,G*°SYSSCMKRNL : CALL ROUTINE IN KERNEL MOD 
161 BLBC ~—_ RO, ; ERROR, EXIT WITH STAT 
16 ADDL #6*4,SP + REMOVE ARGUME 
16 CMPL ~=s RO, #8 : AST OUTSTANDING? 
164 BEQL 908 : IF NOT, EXIT WITH SUCCESS 
165 INC UNT ; INCREMENT THE COUNTER 
166 SSETIMR. $ “ASTADR B*QAST_TIMEOUT,- HEDULE TIMEOUT REQUEST 
167 “REQIDT=QAST COUNT, - : istenn OF QAST COUNT 
168 DAY T Amat TREO : ADDRESS OF TIMEOUT DELTA TIME 
169 SHIBER_S : WAIT FOR AST TO COMP 
120 SCANTIA_S : CANCEL OUTSTANDING TIMER REQUESTS 
1% + HIBERNATE COULD HAVE COMPLETED DUE TO THE FOLLOWING REASONS: 
173 : 1) WAKE FROM AST RESPONSE, REQUEST SUCCESSFU 
174: WAKE FROM TIMEOUT, REQUEST UNSUCCESSFUL, UisT CANCELED BY TIMEOUT 
175 : ) WAKE FROM 'WAKE PENDING’ FLAG, WHICH COMPLETES SHIB BER IMMEDIATELY. 
176 : (NOT SURE WHAT tte NI08 CAUSE THIS, BUT BETTER SAFE...) 
178: FOR CASE #3, WE CAN LIMIT THE DAMAGE BY CANCELING THE OUTSTANDING 
179 : AST SO THAT IT DOESN'T COME BACK AND WIPE OUT OUR STACK WITH THE 
9 ; COMPLETION STATUS OR WIPE OUT OUR BUFFER WITH THE MEMORY. 
1 é CMPL (SP) ,#SS$_TIMEOUT : HAS REQUEST HAS COME BACK YET? 
1 BNE : BRANCH IF IT HAS 
184 SCMKRNL_§ $ BOREJECT RESPONSE : DONT LET AST EVER COME BACK 
185 508: MOVL : GET RETURN STATUS 
186 90$: : EXIT WITH SUCCESS 
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= GET DATA FROM ANOTHER PROCESS gn 366-13 4 tae Bets AX/VMS Macro ee Page 
QAST_TIMEOUT = AST ROUTINE CALLED WHEN Q 5-SEP-1984 33:40 CSDA.SRCJQAST.MAR; 
o 189 ~SBTTL QAST_TIMEOUT = AST ROUTINE CALLED WHEN QAST TIMES OUT 
7A 190 : 
7A 134 : THIS AST ROUTINE IS CALLED WHEN A SPECIAL KERNEL MODE 
7A 136 3 AST REQUEST TO ANOTHER PROCESS TIMES OUT. THE IMAGE 
7A 81935 ; COUNTER IS_ INCREMENTED CAUSING THE KAST ROUTINE (WHEN 
7A 194; IT EVER GETS GOING AGAIN) TO DROP IT ON THE FLOOR. 
7A 195; CURRENT PROCESS 3 WOKEN UP. THE STATUS LONGWORD HAS 
7A 138 3 BEEN PRESET TO SSS$_TIMEOUT SO THAT IT KNOWS THE REQUEST 
7A 197 ; FAILED. 
7A 198 ; 
gh 199 ; INPUTS: 
BRA 0 ; 4(AP) = QAST REQUEST NUMBER 
QO7A $8 3; OUTPUTS: 
O7A 04; 
Bra 0S 3 NONE 
007A 
007A 8 QAST_TIMEOUT: 
0000 bose 3 » WORD 
00000000‘ EF 04 AC D1 O07C 11 CMPL 4(AP) ,QAST_COUNT ; IS THIS FOR THE CURRENT QAST? 
17 12 0084 \¢ BNEQ 3 4 IGNORE THE TIMEO 
b088 1 SCMKRNL_S B*REJECT_RESPONSE 3 INCREMENT THE IMAGE COUNTER 
009 14 SWAKE_S ; WAKEUP THE CURRENT PROCESS 
04 0090 15 90S: RET 
O09E 16 
OO9E 17 REJECT_RESPONSE: 
0000 O09E 18 «WORD 0 
50  00000000'FF DO OOA0 19 MOVL @SCH$GL_CURPCB,RO ; ADDRESS OF CURRENT PCB 
51 6C AO 00 OQ0A7 $9 MOVL PCB$L_PAD(RO) ,R1 ; ADDRESS OF PHD 
OOF4 C1 +4 Boar $$) {eel PHDSL—IMGCNT(R1) 3 INCREMENT IMAGE COUNTER 
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QAST = QUEUE MEMORY REQUEST 0 ANOTHER P ‘Sasepaione Os iteico Venaves Hacce NOK~G mae, vor 
; 4 .SBTTL QAST = QUEUE MEMORY REQUEST TO ANOTHER PROCESS 
B : 
: 5 QAST = QUEUE AST TO READ MEMORY FROM ANOTHER PROCESS 
B § : INPUTS: 
B 0: O4 cap) = LOCATION OF DATA 
0B 1; CAP) = RETURN LOCATION 
0B : : 12(AP) = LENGTH OF TRANSFER 
9080 : 18 CAP) = PID OF TARGET PROCESS 
$8 : } 20(AP) = ADDRESS TO RETURN STATUS 
tB0 : : IMPLICIT INPUTS: 
0B0 8; THE FOLLOWING SYMBOLS REFER TO LONGWORDS WHICH CONTAIN THE 
it i ; VALUE OF THE SYMBOL FOR THE CURRENT RUNNING EXECUTIVE: 
00B0 241: SCHSGL_CURPCB 
00B0 tg 3 SCHSGL_MAXPIX 
00B0 243: SCHSGL~PCBVEC 
00B0 244: PHVSGL-PIXBAS 
00B0 245: SGNSGL~BALSETCT 
9080 46 : SWPS$GL~BALBASE 
080 47 : SWPS$GL~BSLOTSZ 
008 48 : MMGS$GL~SPTBASE 
0080 49 : EXESGL RPB 
008 50 : EXESALCOCBUF 
0080 251: EXE SDEANONPAGED 
0080 3 : EXESMCHK_P 
0080 253: SCHSQAST 
boot ze ; SCHSWAKE 
9080 36 ; OUTPUTS: 
00B0 258: RO = 1 IF THE SPECIAL KERNEL MODE AST IS STILL OUTSTANDING 
0080 259: (IMPLIES HIBERNATE NEEDED IN CALLING ROUTINE) 
9080 60 ; RO = 3 IF NO SPECIAL KERNEL AST WAS ISSUED (AVOID HIBERNATE) 
0080 6¢ : SS$_ACCVIO = NO READ ACCESS TO MEMOR 
OBO 263: SS$"NONEXPR = NON-EXISTANT PROCESS OR INVALID PID 
0080 264: 
007¢ 008 23 GAST: WORD “MCR2.R3.R6.RS.RO> | 
$5 
OB $3 : CHECK ACCESSIBILITY OF SYSTEM VA BECAUSE ALTHOUGH A PROBE INSTRUCTION 
0B 71 : WILL RETURN SUCCESS (PTE VALID), PAGEFAULT DOES NOT ALLOW ONE T 
0B fe : FAULT IN SOME ONE ELSES PROCESS PAGE TABLE PAGE (WHOSE WORKING SET 
08 73 : DO YOU PUT IT IN?, ETC.) AND FAKES AN ACCESS VIOLATION ON THE MOVC 
74 : THUS, WE MUST MUCK IN SYSTEM SPACE IN THE CONTEXT OF THE PROCESS WHICH 
08 75: Owns THE BALANCE SET SLOT TO AVOID PROBLEMS DISPLAYING HIS PROCESS 
0B id: > PAGE TABLE. ALSO, CHECK IF BEYOND END OF SYSTEM VIRTUAL MEMORY, AS 
8 f > PROBE DOES NOT DETECT THIS CONDITION, AND PAGEFAULT ABORTS ON If. 
56 10 AC 00 008 79° MOVL  16(AP),R6 : ASSUME SWITCHING TO "CURRENT PROCESS 
55 04 AC IF €E1 6 280 BBC BVASV. 8 YSTEM,4(AP),5$ : CONTEXT SWITCH IF NOT SYSTEM SPACE 


Nn 8 
- ATA FROM ANOTHER PROCESS 16=SEP=1984 01:43:47 VAX/VMS Macro V04-00 Page 
y02~000 ony = aueur SEMONY REQUEST FS ANOTHER P $78 oats 7 84:33:25 YODA SRCJQAST MARS 1 R: 
“ ; FSET 
52 04 A QOIFF BF  ¢ 8 BICL3 #*X1FF,4(AP),R2 ; CLEAR PAGE OF OT cies 
50 85 atts FE C3 ca SUBLS WPSGL rye, RO ; BELOW 8 LANCE SET SLOTS? 
Of HBS GARE ESTVREARorsy ng 7 GRMCVUE BALAN 7, PACE Muna 
50 O00000'FF C6 00D 5 DIVL H WPS$GL_BSL ¢ PROCESS HEADER INDEX ce 
00000000' FF 30 i ; : cHPW betieett Hither OF obe EAE PEMA "ait 
™ ss aa tA BO 7 § MOVE Ege pa : GET ADDRESS OF CURRENT PHD 
crock Ee ee te Ee ie cs wren 
wi 00980008 80 fe 38 CyYL OR yERDI A # ps oe : oT PROCESS INDEX OWNING BALANCE SLOT 
7 ti 3 RE -'s, 1 : GET ADDRESS oF PCO” NDDRESS GRAY 
m 00990000 40 ty 198 32 MOVE at Natnie A oe. , : GET PCB OWNING BALANCE SET SLOT 
56 60 AG) «00 «(010C:~=Ss 297 MOVL  PCBS$L ne ietn) R6 : GET PID OF PROCESS WHICH OWNS SLOT 
0073 a O11 98 5$ BRW 50$ t USE THAT PROCESS CONTEXT 
: W THE BALANCE SET SLOTS. CHECK IF MAPPED 
He et : Sy ANY Nati FORT CON NTROLLER. IF NOT, THEN ASSUME ITS I/O 
a3 0¢ : SPACE AND DISALLOW TRANSFER. 
011 : 
: ; XTRACT SYSTEM PAGE NUMBER 
53 52.015 09 OoEF O13 04 20S: EXtzV iets ee VPN,R2, a if Vint SYSTEM f ef 
, “ 0000 183 pS Ste 06 MOVL ERI R GET PAGE Uae — ENT 
; NOT VALID CAN'T BE 1/0 SPACE 
mae 61 é 4 9: aie (ALLOL Yow TRANSFER TO CAUSE PAGEFAULT) 
53. 53) 15) 00 SEF «0125 «= 309 EXTZV #PTESV_PFN,#PTESS_PFN,R3,R i & eT PFN gs 
ws ated tt 4 BP 8 ; 319 MOVAB 1 tay A R1 cet OF MEMORY CONTROLLER DESC'S 
" 52. 08 «+O 0136) 31 » RPBSC_NM é : SIZE OF ARRAY 
He Hie Sen thre ff 
50 53 O04 Al (C3 O33 13 25$: ath SORT) GR R3,RO ; PEN ghESS, THAN BASE ADDRESS? 
50 61 18 tf ED gab 318 Bhpay #RPBSV, ‘aGCNT , #RPBSS PAGENT, GAYS, “RO, j WETHIN RANGE | OF MEMORY? 
51 ba C0 tre 318 28$: tt eiead senegniil ah 3 SKIP To fo pNEXT DESCRIPTOR OR 
vs 36 "3 O1th ° lle ‘ "ie + NOT HAPPED BY ANY CONTROLLER, ACCVIO 
O14F : 
: TEM ADDRESS IS ABOVE THE BALANCE SET SLOTS. CHECK IF BEYOND 
Sree ; aN ef SYSTEM VIRTUAL ADDRESS SPACE. 
14F : ' : 
00000000°FF 52 pt O14E 6 bs: CMPL RZ, AMMGSGL_MAXGPTE yt gd peepee | 
50 OC 3¢ 138 : 80$: MOVZWL #SS$_ACCVIO,RO : IF NOT, ACCESS VIOLATION 
136 ° ; READ MEMORY FROM CURRENT PROCESS CONTEXT 
15¢ : | 
: -( CURRENT PSL | 
ep BOHR FO RR athe cman del AE 
S0000s6a'er 3 163 4 PUSHAB 42$ Seer EReVIQUS MODE TO KERNEL | 
52. 04 AC 08 16A $ 42$:  MOVL 4(AP),R2 : GET SOURCE BUFFER ADDRESS | 


| 
| 
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= GET DATA FROM ANOTHER PROCESS 16-SEP=1 :47 VAX/VMS Macro v04~00 Page | REL 
v04=000 QAST = QUEUE MEMORY REQUEST TO ANOTHER P miler} 7 Bf: $3 :40 YODA. SRCIOAST. MAR: . ay VA) 
53 08 AC «(7D «COO MOVQ = BAP) ,R ; GET DESTINATION ADDRESS AND LENGTH 
195 8 IFNORD R4, i: 7998 : CHECK FOR READ ACCESS 
17 40 LFNOWRT Ray R3) ; CHECK FOR WRITE ACCESS 
17—E 0 341; END OF RECOVERY BLOCK ADDESS 
17E 46 : ate gris8 LOG!MCHKSM_ mck! ACHKSM NEXM'MCHK$M_UBA>,RO ; PROTECT MASK 
Ze 43 ; JSB @EXESMCHR PRTCT : INHIBIT MACHINE CHECKS Mac 
63 62 54 28 01 44 MOVC — RG, (R2) , (R3) : MOVE DATA TO BUFFER oo 
1 45 ; RSB : END OF PROTECTED CODE m 7 
1 46 :45$: BLBC 9.808 ; BRANCH IF MACHINE CHECK OCCURRED m 7 
50 03 00 01 4 MOVL #3,R ; SET NO AST OUTSTANDING rei 
04 48 90$: RET 01 
é 20 : READ MEMORY FROM SOME OTHER PROCESS CONTEXT 946 
56 05 1 ; 3 Sos: TSTL = R6 ; ANY PID TO SWITCH TO? The 
db2. 1 1 5 BEQL 408 * BRANCH 
50 O8E8 8F * 18A 54 MOVZWL #SS$_NONEXPR,RO : ASSUME BAD PID MAC 
51 QO0000000'FF 56 A’ O18F 55 SUBW3 RG, aSCHSGL_MAXPIX,R1 : CHECK FOR LEGAL INDEX z: 
51 B6 0197 36 INCW RT XPIX+] = SYSTEM PROCESS | 
Ci 13 0199 «35 BEQL 408 : Se 1P AST IF ‘SYSTEM PROCESS"’ 
£8 19 0198 358 BLSS 908 : BR IF ILLEGAL INDEX 
51 OC AC 00000081'8F ci 019d 359 ADDL3 #PKT SIZE *CODELEN, 12(AP)<R1 TOTAL SIZE OF BUFFER 
00000000'FF 16 O1A6 360 JSB a KESALLO ; ALLOCATE BUFFER FOR COD 
D6 50 €9 O1AC 361 BLBC —_ RO, ; BRANCH IF ERROR DETECTE 
55 52 DO O1AF 6¢ MOVL  R2.R5 SAVE rADDRESS OF PACKET 
oc AS «605560 sC0B2.—Ss 86 MOVL  §R6,ACBSL_PID(RS) ‘ask! ARGET PID | 
0B AS 80 8F 90 0186 364 MOVB #1@ACBSV~KAST,ACBSB_ rMoDiR ) ; SET SPECIAL KERNEL AST 
50 OC AC 00 0188 365 MOVL  12(AP) GET LENGTH OF TRANSFER 
18 AS 3D A540 «(9E O1BF 6-366 MOVAB PKT S1ZE(R5) CRO], ACBSL KAST(RS) ; SET ADDRESS FOR AST 
28 AS) 650) «360 s«(01CS)~—s 367 OVL  RO,PKT_LEN ; LENGTH OF TRANSFER 
1405 04 AC 00 0109 368 MOVL  4(AP),PKT_ADDR(RS) : SET ADDRESS FOR FFTCH 
2405 O08 AC DO OIC 69 MOVL 8 (AP).PKT TRE TLOC (RS) : AND ADDRESS OF RETURN LOCATION 
2c AS 60C) «ODO sé01D 70 MOVL  &#SS$_ACCVIO,PKT TATUS( §) ; ASSUME NO READ ACCESS 
30 AS. 14 AC «DO 0107—- 371 MOVL SO CAP) PK T Or COC(RS) ; ADDRESS TO RETURN STATUS 
54  Q0000000'FF 00 01D re MOVL  a@SCHSGL CURP PCB,R4 ; GET ADDRESS OF CURRENT PCB 
50 6C AG DO OIE 7 MOVL PCBSL_PAD(R4), 0 GET PHD ADDRESS 
10 AS 60 A4 DO OIE? 37% MOVL § PCBSL-PID(R4) ,PKT_ORIGP PIb( SET PID FOR RETU | 
38 AS 600F4 CO. «OO s«C*OTE 75 MOVL § PHDSL~IMGCNT( ¢RO), PKT_IMGCNT(RS) ; SET IMGCNT OF REQUESTOR 
3¢ A? 94 IF 06 CURE Pur FEAGS(R3) AND ST FLAGS | YT 
18 BS 0268'CF eal’ Hed 1F7 £8 move #CODELEN, »W*CODE , @ACBSL LAs NS Copy CODE SEGMENT 
D ; 
1C AS 90000000" EF D0 i 0 MOVL § SCHSQAST,PKT_QAST(R5) ; COPY ABSOLUTE ADDRESSES IN EXECUTIVE 
4 AS EF D 1 MOVL  SCHSWAKE.PKT WAKE(R 
1B eee a ee, ee Bim ay orntvne 
52. 04 9A iB Ye MOVIBL #PRIS_TICOM.R2) =~ ; SET PRIORITY INCREMENT CLASS 
AS 1 5 MOVZ2WL ACBSL~PID(RS5) RO ; GET DESTINATION PID 
OFF D 6 MOVL  a@SCH$G vee, R ; GET ADDRESS OF PCB VECTOR 
6140 0D MOVL (RIDER ‘ ; GET DESTINATION PCB ADDRESS 
D 8 SETIPL #IPL$_SYNCH DON'T LET TARGET'S STATE CHANGE 
B1 0 ; car titi STATE (R4) ,ASCHSC_SUSP If _ TARGET PROCESS SUSPENDED | 
ne ei 4 x ChPA PCBS STATE (R4) ,ASCHSC_SUSPO : OR SUSPENDED AND OUTSWAPPED | 
0 A 
S @PKT_QAST(RS) : QUEUE Ast FOR TARGET (NO RESUSPEND) 
scat then f 3 ope pL #0 7 : DROP IPL, BLOCK IS GONE | 
| 
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| 
QAST = GET DATA FROM ANOTHER PROCESS 16-SEP-1984 01:43:47 VAX/VMS Macro V04-00 Page 11 | RM: 
v04-000 QAST = QUEUE MEMORY REQUEST TO ANOTHER P mii 5e ty 7 Bh: 48: 0 ara eR CIOASS Mansy . red Ta 
6 415 ; 
6 416 : CODE PLACED IN NON-PAGED BUFFER EXECUTED IN 
6 41 ; DESTINATION PROCESS CONTEXT AS A SPECIAL KERNEL AST. 
: 218 tove IFNORD PKT LEN(RS) ,@PKT_ADDR(RS) , 108 BRANCH IF NOT READABLE | 
30 8B 420 PUSHR #*M2R4,R5> : SAVE REGISTER 
72 «bel: PUSHAB B*5$ END OF RECOVERY BLOCK ADDESS 
eee : : MOVL #<MCHKSM_LOG!MCHKSM_ nex AcE gH NEXM'MCHKSM_UBA>,RO ; PROTECT MASK 
72 «403: JSB aPKT _PRICT(RS) INHIBIT MACHINE CH NECKS 
3D AS 6148S 28 AS 28 0272 424 MOVC  PKT_CEN(R5S) ,@PKT_ ADDR(RSS, PKT -DATABUF (R5) : GET DATA 
79 405; RSB : END"OF PROTECTED COD 
30 BA 0279 4 : S$ POPR #*M<R4,R5> ; RESTORE REGISTERS 
7B 407 BLBC 1 BRANCH IF MACHINE CHECK OCCURRED 
2c AS) «(01S siOs«027B 48 MOVL  #S§$_NORMAL,PKT status (Ré)” ; SET SUCCESS ON TRANSFER 
O27F 429 10$ ASSUME PKT_7_S SUSPEND FG 0 
05 3C AS E9 OO7F 430 BLBC — PKT “FLAGS (RS) , 40$ BRANCH IF NOT RE-SUSPENDING 
00 24 a6 05~—COES. «OO 83 43) BBCC = #PCBSV RESPEN, PCBSL_STS(R4).40$ ; ALLOW TARGET TO REMAIN IN SUSP 
OC AS 10 A5 DO 0288 4 é 40$:  MOVL  PKT_ORTGPI (RS), AcBSL PID(R5)  : SET PID FOR RETURN AST 
0B AS) «680 BF OO90s«oBP CG MOVB Piakcasy ieSTOA kao D(RS) : SET FOR KAST AGAIN 
18 AS SD'AF «O9E:sCOO 3¢ 434 MOVAB B*REPLY,ACBSL_ Niet rene) ; SET NEW AST ADDRESS 
04 9A 0297 435 MOVZBL #PRI$_TICOM.R2 ; SET PRIORITY INCREMENT CLASS 
1¢ BS) O17 0 9A 436 JMP aPKT *aAst Rs) : QUEUE RETURN AST AND EXIT / 
$53 438 : CODE PLACED IN NON-PAGED BUFFER EXECUTED IN 
0290 439: ORIGINATOR PROCESS CONTEXT TO RETURN MEMORY 
0 90 440 ; : TO REQUESTED BUFFER AND RETURN COMPLETION STATUS. 
| 
50 6C AG 00 0290 44g REPLY: MOVL — PCBSL_PHD(R4) RO ADDRESS OF PROCESS HEADER 
0OF4 CO 38 AS D1 O2A1 44 CMPL  —- PKT_IAGCNT(R5S ,PHDSL_ InGinTiROD ; CHECK IF STILL SAME IMAGE 
2A «12 «(O2A7 «444 BNEQ DEA oc IF NOT. DROP TRANSFER ON FLOOR 
0209 445 IFNOWRT PKT_LEN(RS) ,@PKT ~RETLOC(RS) 1308" BRANCH IF NOT WRITABLE 
55 DD 0281 44 PUSHL RS ~ SAVE REGIS TE 
2485 30 AS 28A5 28 0283 44 MOVC  PKT_LEN(RS) ,PKT _DATABUF (RS) aPKT RETLOC RS) : MOVE DATA 
55 BEDO O2BA 448 POPL RS ~ RESTORE REGIS 
Oe8D 449 130$: IFNOWRT #4,@PKT_STATLOC(R5S),140$ ; BRANCH IF 13 Fis NOt WRITABLE 
3085 2C AS dO 0204 450 OVL  PKf_STATUS(RS), aPKT “STATLOC(RS) RETURN STATUS 
51 OC AS DO 02C9 451 1408: MOVL ACBSi _PID(R RS R1 GET PID FOR WAK 
02D 43¢ SETIPL #IPL$~SYNCH t RAISE TO SYNCH 
3485 16 0 D 493 JSB aPKt _QAKE (RS) > WAKE REQUESTOR PROCESS 
0203 455 
0 D 496 DEALOC: SETIPL #IPL$_ASTDEL ; RESTORE IPL | 
50. «55 09 D6. «45 MOVL  RS,R : SET ADDRESS FOR RELEASE 
2085 1 bg 498 JMP @PKT_DEANON(RS) > FREE BLOCK 
00000074 6 DC 460 CODELEN = .-CODE ; SIZE OF ENTIRE CODE SEGMENT | 
020€ 462 END | 
| 


a 
QAST - GET DATA FROM ANOTHER PROCESS ot de 9 Sig 247 Ae 
Symbol table “SEP=1984 740 (CSDA.SRC 


(5) | 
$$T1 = 000 1 RPB$S_BASEPFN = é 
ACB$B_RMOD = 8 8 RPB$S_PAGCNT = 
ACBSL_AST = RPBSV_BASEPFN = 
ACBSL_ASTPRM 2 14 RPBS$V_PAGCNT = 
ACBSL_KAST = 18 SCHSC_SUSP 2 3 
BSL_PID = g SCH$C-SUSPO = A | 
ACBSV_KAST = SCHSGC_CURPCB tteneeee =X 03 
CODE 8 R 03 SCHSGL-MAXPIX ateneeee x 3 
CODELEN = 06 4 SCHS$GL-PCBVEC aeeneeee =X 3 
DEALOC 000002D3 R 0 SCHSQAST aeeeeeee KX 03 
EXESALLOCBUF eeeeeeee =X SCHSWAKE aeeeeeee = X 03 | 
EXESDEANONPAGED eeeneeee xX SECONDS = 00989680 
EXE teeeeeee =X SGNSGL_BALSETCT aeeneree X 03 
EXESIPTD TO_EPID teeereee XK 0 S12... = 00000001 
GETPROCMEM 00000008 RG 0 SS$_ACCVIO = 445444 
IPL$S_ASTDEL = 0000000 SS$_NONEXPR = 00000 
IPL$-SYNCH = 0000000 SS$_NORMAL = 00000 
MMGSGL_MAXGPTE tereeere = X 03 SS$- TIMEOUT = 0000022¢ 
MMGSGL- SPTBASE etrerees 03 SWPSGL_BALBASE teeeeeee KX 03 
PCBSL_PHD = 0000006C SWPS$GL"BSLOTSZ eeeeeeee =X = 03 
PCB$L_PID = 00000060 SYSSCANTIM eeeeeeee GX 03 
PCBSL_STS = 00000024 SYSSCMKRNL keaekeeee GX 03 
PCBS$V_RESPEN = 00000005 SYSSHIBER teeeeeee GX 03 
PCBSW_STATE = 0000002C SYSSRESUME aeenenee GX 03 
PHD$L_IMGCNT = O00000F4 SYSSSETIMR aeeneeee GX 03 
PHDSW_PHVINDEX = 00000042 SYSSWAKE eeeeeeee GX 03 
PHVS$GC_PIXBAS eeeeeree = X 03 TIMEOUT 00000000 R 03 
PKT_ADBR = 00000014 VA$S_VPN = 00000015 
PKT_DATABUF 0000003D VASV_SYSTEM = Q000001F 
PKT_DEANON it VASV_VPN = 00000009 
PKT_FLAGS 0000003¢ 
PKT-IMGCNT 00000038 
LEN Ste 
KT_M_ SUSPEND = 00000001 
PKT_ORIGPI = 00000010 
“QaST 0000001¢ 
PKT_RETLOC Sts 
“SIZE 0000003D | 
PKT-STATLOC 00000030 
PKT_STATUS 0000002C 
PKT_V_SUSPEND = 4444 0 
KT WAKE 8 444 4 
3 : Bh 
PSLST_KERNEL = 09000000 
_PR = 0000 
PSL$V~PRVMOD = 00000 1 
PTESS_PFN = 8 1 
PTESV_PFN = 00 0 
QAST 8 g 93 
QAST_COUNT R ¢ 
QAST- TIMEOUT 0 AR 0 
RE JECT_RESPONSE 9E R Hy | 
REP 9D R 3 
RPBS$C_MEMDSCSIZ 2 | 
RPBS$C_NMEMDSC = 
RPBSL_MEMDSC 2 000BC 


QAST - GET DATA FROM ANOTHER PROCESS 
Psect synopsis 


SSEp=198e 04:33:40 


Teor tenet em eB ee memo m ew oe + 


Phase Page faults CPU Time Elapsed Time 
Initialization 5 00:00:00.04 00:00:01.10 
connend processing 134 00:00:00.43 00:00:03.77 
s 1 322 Bb SE bs SETS Ue 
Synbol table sort g 88:88! 1.14 0:00:05.55 
s2 10 0:00:01.48 00:00:06.06 
a table output 11 00:00:00.05 00:00:00.48 
Psect synopsis output 3 00:00:00.02 00:00:00.36 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 609 00:00:10.54 00:00:44.29 


The working set Limit was 1650 pages. 
60357 bytes (118 pages) of virtual memory were used to buffer the intermediate c 


462 source lines were read in Pass 1, producing 


0 object records in Pass 2 
36 pages of virtual memory were used to define 3 


macros. 


Seon EOE OE OY 


Macro library name 


“$255$DUA28: it ab ewe MLB; 1 9 
=$5228DUA 8: CSYS.OBJIJLIB.M 1 
“$255 SDUA 8: SYS IBISTARLET. aie: 2 18 

TOTALS (all libraries) 31 

1222 GETS were required to define 31 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:QAST/OBJ=OBJ$:QAST MSRC$:QAST/UPDATE=(ENH$:QAST) +EXECML$/LIB+L IBS: SDALIB/LIB 


PSECT name Allocation PSECT No. Attributes 

. «ABS . 00000 0 “( 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL N 
SABSS 000003D (¢ 61.) 1¢ 1.) NOPIC USR CON ABS- LCL NO 
DATA 0000004 ( 4.) ¢ ( ¢-) NOPIC USR CON REL LCL WN 
QAST 000002DC ¢ 732.) ( 3.) NOPIC USR CON’ REL LCL NO 


ode. 
There were 60 pages of symbol table space allocated to hold 1053 non-local and 19 local symbols. 


AX/VMS 


OSHR NOEXE 
SHR 


Macr 
SDA.SRCJQAST 


EXE 


$s NOEXE NORD 

SHR EXE RD 
RD 
RD 


v04-00 P 1 
Raed ror l3 


2 SH me # 
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